home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacHack 1994
/
MacHack 1994.toast
/
MacHack™94
/
Talks & Papers
/
Timothy Knox
/
yerk 3.66
/
Module source
/
about
next >
Wrap
Text File
|
1994-06-24
|
1KB
|
47 lines
:MODULE aboutMod
// pictures
picture eye
: blue 409 call forecolor ;
scon about0 " formerly Neon by Kriya"
scon about1 " Maintained by R. F. Loewenstein"
scon about2 " Dept. of Astronomy & Astrophysics"
scon about3 " University of Chicago"
scon about4 " Yerkes Observatory"
scon about5 " Williams Bay, WI 53191
scon about6 " 414-245-5555"
scon about7 " rfl@yerkes.uchicago.edu
: .about blue 0 getres YERK >ptr count bl emit type cr
about0 type cr cr
about1 type cr about2 type cr about3 type cr about4 type cr
about5 type cr about6 type cr about7 type ;
: centerTemp { dx dy \ r b -- } screenBits 20 - -> b -> r 2drop \ take menubar height
r dx - 2/ \ get left
b dy - 2/ 10 + \ get top
over dx +
over dy + put: temprect ;
\ bits/pixel for device
: b/pix/dev ( hndl -- n) >ptr 22 + @ >ptr 32 + w@ ;
: getDevPix ( -- n) 0 call getMainDevice b/pix/dev ;
: about { \ hwind -- } " aboutMod.bin" openresfile
heap> window -> hwind
410 124 getDevPix 2 > IF 45 + THEN centerTemp
temprect " " dlgwind true false new: hwind
select: hwind -curs
2 5 getDevPix 2 > 1000 + disp: eye
-190 0 >origin
home .about
waitclick 6 (flush) close: hwind \ flush any key or mouse events so we don't
dispose> hwind 0 tmode 0 tface ; \ switch out of app when window closes
;MODULE